home *** CD-ROM | disk | FTP | other *** search
/ Instant Access / Instant Access CD-ROM Issue 1 (1993).iso / Instant Access / Graphics / Design / DesignStudio / •demo / DesignStudio Demo / DesignStudio Demo.rsrc / PSCD_273 < prev    next >
Encoding:
Text File  |  1992-09-18  |  2.7 KB  |  55 lines
  1. /lssetcmyk[
  2. {pop pop pop cmyk2chan}
  3. {pop pop exch pop cmyk2chan}
  4. {pop 3 1 roll pop pop cmyk2chan}
  5. {4 1 roll pop pop pop cmyk2chan}
  6. {mgp4 0 cmyk2chan}
  7. {cmyk2gray}
  8. ]def
  9. /lscmyksetup{lssetcmyk exch get/setcmykcolor exch bdf}def
  10. /lssetopr[
  11. {DesignStudioDict begin/lsopr exch store end}
  12. {DesignStudioDict begin pop/lsopr true store end}
  13. {DesignStudioDict begin pop/lsopr false store end}
  14. ]def
  15. /lssopsetup{lssetopr exch get/setoverprint exch bdf}def
  16. /lsepsfinit{
  17. /lssepid exch def
  18. /lscolid exch def
  19. /lssopid exch def
  20. /lsspots exch def
  21. /lsplate exch def
  22. /lsopr false def
  23. /lsreqiscust false def
  24. /lscolreq false def
  25. lscolid dup 6 lt {lscmyksetup}{pop}ifelse
  26. lssopid lssopsetup
  27. }def
  28. /invert{1. exch sub}bdf
  29. /cmyk2chan{invert setgray}bdf
  30. /min{2 copy lt{1}{0}ifelse index}bdf
  31. /addblack{black add invert dup 0 lt{pop 0}if }def/cmyk2gray{DesignStudioDict begin /black exch def addblack 0.11 mul 3 1 roll addblack 0.59 mul 3 1 roll addblack 0.3 mul add add setgray end}bdf/setgray{invert 0 0 0 4 -1 roll setcmykcolor}def
  32. /rgb2cmy{3{invert 3 1 roll}repeat}bdf
  33. /doUCR{min 3 index min 4 1 roll 
  34. 3{3 index sub 3 1 roll}repeat 4 -1 roll}bdf
  35. /setrgbcolor{rgb2cmy doUCR setcmykcolor}def
  36. /sethsbcolor{sethsbcolor currentrgbcolor setrgbcolor}def
  37. /setcmybcolor{setcmykcolor}def
  38. /findcmykcustomcolor{5 array astore readonly}def
  39. /setcustomcolor{DesignStudioDict begin exch dup 4 get/lscolreq exch store /lsreqiscust false store lsspots{ lscolreq eq{ /lsreqiscust true store exit }if }forall 
  40. lsreqiscust{lscolreq lsplate eq {pop cmyk2chan}{/lscolisset false def lscolid 4 lt lssepid 2 eq and{aload pop pop 4{4 index mul 4 1 roll}repeat setcmykcolor pop /lscolisset true store }if lscolid 6 eq{pop cmyk2chan /lscolisset true store }if lscolid 5 eq{aload pop pop 4{4 index mul 4 1 roll}repeat cmyk2gray pop /lscolisset true store }if lscolisset false eq{pop pop 0 cmyk2chan }if }ifelse }{lscolid 4 lt {aload pop pop 4{4 index mul 4 1 roll}repeat setcmykcolor pop }if lscolid 4 eq {pop pop 0 cmyk2chan }if lscolid 5 eq {pop cmyk2chan }if }ifelse end}def
  41. /setoverprint{DesignStudioDict begin/lsopr exch store end}def
  42. /shouldpaint{currentgray 1 ne lsopr not or}def
  43. /spprolog{gsave nulldevice}bdf
  44. /spepilog{currentpoint grestore moveto}bdf
  45. /fill{shouldpaint{fill}{newpath}ifelse}bdf
  46. /eofill{shouldpaint{eofill}{newpath}ifelse}bdf
  47. /stroke{shouldpaint{stroke}{newpath}ifelse}bdf
  48. /image{shouldpaint{image}{spprolog image grestore}ifelse}bdf
  49. /imagemask{shouldpaint{imagemask}{spprolog imagemask grestore}ifelse}bdf
  50. /show{shouldpaint{show}{spprolog show spepilog}ifelse}bdf
  51. /ashow{shouldpaint{ashow}{spprolog ashow spepilog}ifelse}bdf
  52. /widthshow{shouldpaint{widthshow}{spprolog widthshow spepilog}ifelse}bdf
  53. /awidthshow{shouldpaint{awidthshow}{spprolog awidthshow spepilog}ifelse}bdf
  54. /kshow{shouldpaint{kshow}{spprolog kshow spepilog}ifelse}bdf
  55.